Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_83 / starwars.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-21 | 27KB | 192 lines

10 REM **************************** 100 MODE 1000 REM * starfield 1 ******************************* 101 CURS 1010 REM * with colour 10-15 ************************* 1020 CLS 1025 VARNAME 1030 FOR 1040 FOR 1050 VARNAME 1060 FOR 1065 IF 1070 INK 1076 REM 1080 NEXT 1085 NEXT 1090 NEXT 1091 FOR 1092 FOR 1093 INK 1094 NEXT 1099 RETURN 11 REM * * 110 GOSUB 1100 REM * begin starfield **************************** 1105 VARNAME 1110 FOR 1120 VARNAME 1130 VARNAME 1140 REPEAT 1150 INK 1160 VARNAME 1170 INC 1180 UNTIL 1190 NEXT 1195 SHIFT 1199 RETURN 12 REM * STAR WARS * 120 GOSUB 13 REM * * 130 SHIFT 135 PEN 14 REM * * 15 REM **************************** 150 REM * begin ************************************** 16 VARNAME 160 VARNAME 180 VARNAME 181 VARNAME 182 VARNAME 183 VARNAME 185 PAPER 190 MOVE 20 DIM 200 REM * game *************************************** 2000 REM * wat is er geraakt *********************************** 2005 VARNAME 2006 IF 201 IF 2010 IF 2020 IF 2099 RETURN 21 VARNAME 2100 IF 2110 IF 22 VARNAME 23 VARNAME 24 VARNAME 25 VARNAME 250 IF 255 IF 26 VARNAME 260 IF 27 VARNAME 270 IF 28 VARNAME 292 INC 299 REM * Vuurbal ************************************* 2999 RETURN 300 IF 3000 REM * init **************************************** 3010 FOR 302 SPRITE 3020 VARNAME 303 MOVE X 304 INC 3099 RETURN 310 REM * enemy ************************************ 315 IF 320 SPRITE 330 MOVE X 340 INC 350 REM * bom **************************** 351 VARNAME 355 IF 360 MOVE X 361 INC 362 IF 370 REM * superschip ********************************** 371 IF 372 SPRITE 373 VARNAME 380 REM * rots **************************************** 381 IF 382 SPRITE 390 REM * schoten van super schip ********************** 391 IF 392 IF 393 SPRITE 394 MOVE X 395 MOVE Y 396 INC 399 IF 400 REM ********************************************** 4000 REM * einde level ********************************* 4005 MOVE 4009 FOR 4010 FOR 4015 SPRITE 4020 ANIM 4030 NEXT 4040 OFF 4060 PEN 4070 LOCATE 4080 CLEAR KEY 4090 INC 4099 GOTO 49000 REM # palette from sprite-bank # 49005 VARNAME 49010 RETURN 50 VARNAME 500 REM * collide ************************************ 5000 REM * schot *************************************** 5005 PAPER 5010 PEN 5015 PAPER 5020 RETURN 5030 REM * schild ************************************** 5035 PAPER 5040 PEN 5045 PAPER 505 IF 5050 RETURN 5060 REM * score *************************************** 5070 LOCATE 5090 RETURN 51 VARNAME 510 VARNAME 520 IF 549 REM ********************************************** 550 FOR 551 IF 552 IF 553 IF 554 IF 555 IF 556 GOSUB 558 SPRITE 559 NEXT 60 GOSUB 600 IF 6000 REM * game over ********************************* 6001 VARNAME 6010 OFF 6020 FOR 6030 PEN 6040 PEN 6050 PEN 6060 IF 6070 PEN 6090 CLEAR KEY 6099 GOTO 699 GOTO 70 REM * intro **************************************** 71 MODE 72 CLEAR KEY 73 HIDE 75 GOSUB 76 PEN 80 CURS 81 VARNAME 82 DEF 83 DEF 84 VARNAME 85 VARNAME 86 REPEAT 87 SCROLL 88 VARNAME 89 WAIT VBL 90 UNTIL 91 SHIFT